home *** CD-ROM | disk | FTP | other *** search
/ La Bible Des... Jeux / La Bible des... Jeux.iso / Les Sharewares / Educatifs / A Panda is for Life... / Musical Panda / Musical Panda.6 / 00133.ls < prev    next >
Encoding:
Text File  |  1995-12-03  |  1.4 KB  |  42 lines
  1. on enterFrame
  2.   global MUSICBOX, MUSIC_CHANNEL, PICTUREBOX, INDICATOR, CONTROLS, FFLAKE, BFLAKE, CBOX, flakeList, currentTune, currentVolume
  3.   set MUSICBOX to the number of cast "Holly & Ivy" - 1
  4.   set PICTUREBOX to the number of cast "A1"
  5.   set MUSIC_CHANNEL to 28
  6.   set INDICATOR to 3
  7.   set CONTROLS to 11
  8.   set FFLAKE to 12
  9.   set BFLAKE to 4
  10.   set CBOX to 4
  11.   set flakeList to []
  12.   set currentVolume to 0
  13.   set currentTune to 1
  14.   set the timeoutLength to 120 * 60
  15.   set the timeoutScript to "flashControls"
  16.   repeat with currentchannel = CONTROLS to CONTROLS + 2
  17.     puppetSprite(currentchannel, 1)
  18.     set the visible of sprite currentchannel to 0
  19.   end repeat
  20.   puppetSprite(MUSIC_CHANNEL, 1)
  21.   set the movieRate of sprite MUSIC_CHANNEL to 0
  22.   set the volume of sprite MUSIC_CHANNEL to currentVolume
  23.   puppetSprite(INDICATOR, 1)
  24.   set the castNum of sprite INDICATOR to the number of cast "1"
  25.   puppetSprite(CBOX, 1)
  26.   set the castNum of sprite CBOX to the number of cast "close-box"
  27.   repeat with currentchannel = BFLAKE + 1 to BFLAKE + 3
  28.     puppetSprite(currentchannel, 1)
  29.   end repeat
  30.   repeat with currentchannel = FFLAKE + 4 to FFLAKE + 8
  31.     puppetSprite(currentchannel, 1)
  32.   end repeat
  33.   repeat with currentFlake = 1 to 3
  34.     createBackgroundFlake()
  35.   end repeat
  36.   repeat with currentFlake = 1 to 5
  37.     createForegroundFlake()
  38.   end repeat
  39.   puppetSound("Buzz")
  40.   flashControls()
  41. end
  42.